home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1996 July / Macworld (1996-07).dmg / Demos / frEQout demo / INTERVU / INTERVU / INTERVU.DXR / 00150.ls < prev    next >
Encoding:
Text File  |  1996-03-28  |  592 b   |  33 lines
  1. on enterFrame
  2.   global choose
  3.   set choose to random(7)
  4.   if choose = 1 then
  5.     puppetSound(3, 0)
  6.     puppetSound(3, 269)
  7.   end if
  8.   if choose = 2 then
  9.     puppetSound(3, 0)
  10.     puppetSound(3, 270)
  11.   end if
  12.   if choose = 3 then
  13.     puppetSound(3, 0)
  14.     puppetSound(3, 268)
  15.   end if
  16.   if choose = 4 then
  17.     puppetSound(3, 0)
  18.     puppetSound(3, 271)
  19.   end if
  20.   if choose = 5 then
  21.     puppetSound(3, 0)
  22.     puppetSound(3, 266)
  23.   end if
  24.   if choose = 6 then
  25.     puppetSound(3, 0)
  26.     puppetSound(3, 267)
  27.   end if
  28.   if choose = 7 then
  29.     puppetSound(3, 0)
  30.     puppetSound(3, 265)
  31.   end if
  32. end
  33.